note
	description: "Summary description for {MC72}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	MC72

	feature {NONE}-- atributos
		misil: MISIL

	feature
		hay_Misiles: BOOLEAN
			-- Retorna verdadero si hay misiles en stock,falso en caso contrario.
			local
				r:RANDOM
				t:DATE_TIME
			do
				create r.make
				create t.make_now
				r.set_seed (t.seconds)
				if( (r.next_random (t.seconds) \\ 2) = 0)
					then
						result:= true
					else
						result:= false
				end
			end


		setup_Misil
			-- Crea un misil.
			require
				hay_Misiles=true
			do
				create misil
			end


		cargar_Misil
			-- Activa el misil.
			do
				misil.activar
			end


		preparar_Misil
			-- Prepara un misil.
			local
				flag: INTEGER
			do
				flag:=0
				setup_Misil
				flag:=1
				cargar_Misil
				rescue
					if(flag=1)
						then
							retry
					end
			end


		apuntar_Misil(objetivo: STRING)
			--Fija el blanco del misil.
			do
				misil.fijar_blanco (objetivo)
			end

	
		lanzar_Misil
			-- Ordena al misil que despegue.
			do
				misil.despegar
			end
end
